Module modStartup
    Public Sub main()

        Try
            ' show the splashie
            'Dim fRunner As New frmCampaignRunner()
            Dim frunner As New frmCampaigner

            Dim splash As New CampaignerSplash()
            splash.ShowDialog()

            splash.Dispose()

            ' now start the program
            fRunner.ShowDialog()

            fRunner.Dispose()

        Catch ex As Exception
            HandleException("Campaigner Startup", ex)
        End Try

    End Sub
End Module
